Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue61/Stream/uMaker.dfm

Text File | 2000-04-11 | 6.6 KB | 292 lines

object Form1: TForm1
  Left = 210
  Top = 107
  Width = 574
  Height = 377
  Caption = 'Screen Saver Maker'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 289
    Top = 35
    Width = 3
    Height = 277
    Cursor = crHSplit
  end
  object ListFiles: TListBox
    Left = 0
    Top = 35
    Width = 289
    Height = 277
    Align = alLeft
    ItemHeight = 13
    TabOrder = 0
    OnClick = ListFilesClick
  end
  object Panel1: TPanel
    Left = 292
    Top = 35
    Width = 274
    Height = 277
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 62
      Top = 90
      Width = 3
      Height = 97
      Cursor = crHSplit
    end
    object Splitter3: TSplitter
      Left = 2
      Top = 87
      Width = 270
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object Splitter4: TSplitter
      Left = 199
      Top = 90
      Width = 3
      Height = 97
      Cursor = crHSplit
      Align = alRight
    end
    object Splitter5: TSplitter
      Left = 2
      Top = 187
      Width = 270
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 270
      Height = 85
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 202
      Top = 90
      Width = 70
      Height = 97
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
    end
    object Panel4: TPanel
      Left = 2
      Top = 190
      Width = 270
      Height = 85
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
    end
    object Panel5: TPanel
      Left = 2
      Top = 90
      Width = 60
      Height = 97
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 3
    end
    object Panel8: TPanel
      Left = 65
      Top = 90
      Width = 134
      Height = 97
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 4
      object ImagePreview: TImage
        Left = 2
        Top = 2
        Width = 130
        Height = 93
        Align = alClient
        Stretch = True
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 312
    Width = 566
    Height = 19
    Panels = <
      item
        Bevel = pbNone
        Width = 200
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object Panel6: TPanel
    Left = 0
    Top = 0
    Width = 566
    Height = 35
    Align = alTop
    Alignment = taLeftJustify
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = ' Text:'
    TabOrder = 3
    object eText: TEdit
      Left = 32
      Top = 8
      Width = 525
      Height = 21
      TabOrder = 0
    end
  end
  object OpenScr: TOpenDialog
    DefaultExt = 'SCR'
    FileName = '*.scr'
    Filter = 'Screen Savers (*.scr)|*.scr'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select a Screen Saver File'
    Left = 16
    Top = 24
  end
  object SaveScr: TSaveDialog
    DefaultExt = 'SCR'
    FileName = 'NewScreenSaver.SCR'
    Filter = 'Screen Saver (*.scr)|*.scr'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Create your Screen Saver'
    Left = 48
    Top = 24
  end
  object OpenPic: TOpenPictureDialog
    DefaultExt = 'jpg'
    FileName = '*.jpg'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select Images to Add'
    Left = 80
    Top = 28
  end
  object ActionList: TActionList
    Left = 16
    Top = 86
    object ActionNew: TAction
      Category = 'File'
      Caption = 'Start &New Screensaver'
      Hint = 'Clear the current screensaver and start a new one'
      ShortCut = 16462
      OnExecute = btnNewClick
    end
    object ActionBuild: TAction
      Category = 'File'
      Caption = '&Build Screensaver'
      Enabled = False
      Hint = 'Build the current screensaver'
      ShortCut = 16504
      OnExecute = btnCreateClick
    end
    object ActionLoad: TAction
      Category = 'File'
      Caption = '&Load Screensaver'
      Hint = 'Load from an existing screensaver'
      ShortCut = 16460
      OnExecute = btnLoadClick
    end
    object ActionAddImage: TAction
      Category = 'Images'
      Caption = '&Add Image'
      Hint = 'Add an image to the current screensaver'
      ShortCut = 16449
      OnExecute = btnAddClick
    end
    object ActionDeleteImage: TAction
      Category = 'Images'
      Caption = '&Delete Image'
      Enabled = False
      Hint = 'Delete the selected image from the current screensaver'
      ShortCut = 16452
      OnExecute = btnDeleteClick
    end
    object ActionUp: TAction
      Category = 'Images'
      Caption = 'Move &Up'
      Enabled = False
      Hint = 'Move the selected image up in the image list'
      ShortCut = 16422
      OnExecute = btnUpClick
    end
    object ActionDown: TAction
      Category = 'Images'
      Caption = 'Move &Down'
      Enabled = False
      Hint = 'Move the selected image down in the image list'
      ShortCut = 16424
      OnExecute = btnDownClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 68
    Top = 104
    object File1: TMenuItem
      Caption = '&File'
      object NewScreensaver1: TMenuItem
        Action = ActionNew
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object CreateNewScreensaver1: TMenuItem
        Action = ActionBuild
      end
      object LoadExistingScreensaver1: TMenuItem
        Action = ActionLoad
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
      end
    end
    object List1: TMenuItem
      Caption = '&Images'
      object AddImage1: TMenuItem
        Action = ActionAddImage
      end
      object DeleteImage1: TMenuItem
        Action = ActionDeleteImage
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MoveUp1: TMenuItem
        Action = ActionUp
      end
      object MoveDown1: TMenuItem
        Action = ActionDown
      end
    end
  end
end